home *** CD-ROM | disk | FTP | other *** search
- userdict begin/bu where{pop}{/xpbumtx matrix def/bu{xpbumtx currentmatrix aload pop
- /pm where{pop pm restore}if xpbumtx astore setmatrix}bind store}ifelse
- /bn where{pop}{/bn{/pm save def}bind store}ifelse end
-